Chip 1998 September/CHIP NET Rehberi Eylül 1998.iso/ftp/ADFiles/_setup.1/ADFiles.exe/0/RCDATA/TURLEXP/TURLEXP.txt

Text File | 1998-04-27 | 8KB | 326 lines

object UrlExp: TUrlExp
  Left = 149
  Top = 122
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Url Explorer'
  ClientHeight = 403
  ClientWidth = 592
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PanelMain: TPanel
    Left = 0
    Top = 0
    Width = 592
    Height = 403
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 1
    BorderStyle = bsSingle
    TabOrder = 0
    object ForAll: TPanel
      Left = 3
      Top = 3
      Width = 582
      Height = 36
      Align = alTop
      BevelInner = bvLowered
      TabOrder = 0
      object btAdd: TRxSpeedButton
        Left = 3
        Top = 3
        Width = 30
        Height = 30
        Flat = True
        GrayedInactive = False
        ParentShowHint = False
        Transparent = True
        OnClick = btAddClick
      end
      object btDele: TRxSpeedButton
        Left = 34
        Top = 3
        Width = 30
        Height = 30
        Enabled = False
        Flat = True
        GrayedInactive = False
        ParentShowHint = False
        Transparent = True
        OnClick = btDeleClick
      end
      object btInsert: TRxSpeedButton
        Left = 65
        Top = 3
        Width = 30
        Height = 30
        Enabled = False
        Flat = True
        GrayedInactive = False
        ParentShowHint = False
        Transparent = True
        OnClick = btInsertClick
      end
      object btRename: TRxSpeedButton
        Left = 96
        Top = 3
        Width = 30
        Height = 30
        Enabled = False
        Flat = True
        GrayedInactive = False
        ParentShowHint = False
        Transparent = True
        OnClick = btRenameClick
      end
      object btShow: TRxSpeedButton
        Left = 127
        Top = 3
        Width = 30
        Height = 30
        Hint = 'Bring Url Maker'
        Flat = True
        GrayedInactive = False
        ParentShowHint = False
        Transparent = True
        OnClick = btShowClick
      end
      object btConnect: TRxSpeedButton
        Left = 158
        Top = 3
        Width = 30
        Height = 30
        Hint = 'Go to connect'
        Enabled = False
        Flat = True
        GrayedInactive = False
        ParentShowHint = False
        Transparent = True
        OnClick = btConnectClick
      end
    end
    object PanelHeadUrls: TPanel
      Left = 4
      Top = 40
      Width = 580
      Height = 355
      TabOrder = 1
      object PanelHeadersBot: TPanel
        Left = 1
        Top = 1
        Width = 260
        Height = 353
        Align = alLeft
        BevelOuter = bvNone
        TabOrder = 0
        object PanelHeadersBot2: TPanel
          Left = 0
          Top = 0
          Width = 260
          Height = 353
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 0
          object Names: TPanel
            Left = 1
            Top = 1
            Width = 255
            Height = 21
            BevelInner = bvLowered
            Caption = 'Headers'
            TabOrder = 0
          end
          object PanelHeaders: TPanel
            Left = 1
            Top = 23
            Width = 256
            Height = 329
            BevelOuter = bvNone
            BorderStyle = bsSingle
            TabOrder = 1
            object NamesFtp: TListView
              Left = 0
              Top = 0
              Width = 252
              Height = 325
              Align = alClient
              ColumnClick = False
              OnClick = NamesFtpClick
              Columns = <
                item
                  Caption = 'Header of URLs'
                  Width = 157
                end
                item
                  Caption = 'Number of URLs'
                  Width = 90
                end>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              HideSelection = False
              RowSelect = True
              OnEdited = NamesFtpEdited
              OnEditing = NamesFtpEditing
              OnEnter = NamesFtpEnter
              ParentFont = False
              PopupMenu = PopupMenu1
              TabOrder = 0
              ViewStyle = vsReport
              SmallImages = SmallImages
              StateImages = SmallImages
            end
          end
        end
      end
      object PanelUrlsBot: TPanel
        Left = 263
        Top = 1
        Width = 316
        Height = 353
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 1
        object Tips: TPanel
          Left = 1
          Top = 1
          Width = 316
          Height = 21
          BevelInner = bvLowered
          Caption = 'URLs'
          TabOrder = 0
        end
        object PanelUrls: TPanel
          Left = 0
          Top = 23
          Width = 316
          Height = 267
          BevelOuter = bvNone
          BorderStyle = bsSingle
          TabOrder = 1
          object TipsFtp: TListView
            Left = 0
            Top = 0
            Width = 312
            Height = 263
            Align = alClient
            ColumnClick = False
            OnClick = TipsFtpClick
            OnDblClick = btConnectClick
            Columns = <
              item
                Caption = 'Name of URL'
                Width = 140
              end
              item
                Caption = 'IP Address'
                Width = 120
              end
              item
                Caption = 'Login'
                Width = 35
              end
              item
                Caption = 'Password'
                Width = 35
              end
              item
                Caption = 'Port'
                Width = 30
              end>
            AllocBy = 5
            RowSelect = True
            OnEditing = TipsFtpEditing
            OnEnter = TipsFtpEnter
            OnMouseMove = TipsFtpMouseMove
            ParentShowHint = False
            ShowHint = True
            PopupMenu = PopupMenu1
            TabOrder = 0
            ViewStyle = vsReport
            SmallImages = SmallImages
            StateImages = SmallImages
          end
        end
        object PanelAbout: TPanel
          Left = 0
          Top = 292
          Width = 316
          Height = 60
          BevelOuter = bvNone
          BorderStyle = bsSingle
          TabOrder = 2
          object AboutSite: TRichEdit
            Left = 0
            Top = 0
            Width = 312
            Height = 56
            Align = alClient
            ReadOnly = True
            TabOrder = 0
          end
        end
      end
      object SplitterHeadUrls: TRxSplitter
        Left = 258
        Top = 1
        Width = 5
        Height = 353
        ControlFirst = PanelHeadersBot2
        ControlSecond = PanelUrlsBot
        Align = alRight
        OnPosChanged = SplitterHeadUrlsPosChanged
      end
    end
  end
  object SmallImages: TImageList
    ShareImages = True
    Left = 44
    Top = 90
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 16
    Top = 90
    object AddHeader1: TMenuItem
      Caption = '&Add new'
      OnClick = btAddClick
    end
    object InsertHeader1: TMenuItem
      Caption = '&Insert new'
      OnClick = btInsertClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object mnEdit: TMenuItem
      Caption = '&Edit selected'
      Enabled = False
      OnClick = btRenameClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object mnDele: TMenuItem
      Caption = '&Delete selected'
      Enabled = False
      OnClick = btDeleClick
    end
  end
end